home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / education / e126.dms / e126.adf / *Was A Little Woman* / There Was A Little Woman / There Was A Little Woman.amosSourceCode < prev   
AMOS Source Code  |  2007-07-18  |  635b  |  36 lines
  1. Hide 
  2. Screen Open 0,356,300,4,Lowres
  3. Curs Off 
  4. Palette 0,$0
  5. Cls 
  6. Pen 3
  7. Locate ,3
  8. Centre "SPEED SELECT"
  9. Locate ,6
  10. Centre "Click Left Mouse Button"
  11. Locate ,7
  12. Centre "For Fast Computers"
  13. Locate ,9
  14. Centre "Click Right Mouse Button"
  15. Locate ,10
  16. Centre "For Slower Computers"
  17. 44 If Mouse Key=1 Then SP=4010 : Goto 66
  18. If Mouse Key=2 Then SP=3800 : Goto 66
  19. Goto 44
  20. 66 Volume 63
  21. 4 Music 1
  22. 7 For T=6 To 10
  23. Unpack T To 0
  24. For Y=0 To SP
  25. Pen 0 : Paper 0 : Locate 0,0 : Print Y
  26.  If Mouse Key=2 Then Change Mouse 3 : Show : Proc _END
  27. Next Y
  28. Next T
  29. Goto 7
  30. Procedure _END
  31.    For V=63 To 0 Step -1
  32.       Volume V
  33.       Wait Vbl 
  34.    Next 
  35.    Edit 
  36. End Proc